home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1998 #4 / Amiga Plus CD - 1998 - No. 4.iso / pd / musik / sample-x / install_sample-x < prev    next >
Text File  |  1998-01-13  |  3KB  |  115 lines
  1. ; $VER: Sample-X Install 1.0 (31-5-97)
  2. ; Script by S.Olatubosun 
  3. ;
  4. ; Copy over all needed files
  5. ; add assigns, path changes to user-startup
  6. ; copy xphantom driver, modify Music-X tooltypes
  7.  
  8.  
  9. ; =========WELCOME=======
  10.  
  11.  
  12. (set #chosen_dir
  13.     (askdir
  14.         (prompt "Please specify where to install the software. A new\nsubdirectory entitled 'Sample-X' will be created.")
  15.         (help @askdir-help)
  16.         (default "Work:")
  17.     )
  18. )
  19.  
  20.  
  21. (set #sxdir (tackon #chosen_dir "Sample-X"))
  22.  
  23. (makedir #sxdir
  24.     (prompt "Creating new directory\n\n" #sxdir)
  25.     (help @makedir-help)
  26.     (confirm)
  27. )
  28.  
  29. ; copy the Sample-X.info file to parent of #sxdir!!!
  30.  
  31. (copyfiles
  32.     (prompt "Copying Sample-X files...")
  33.     (help @copyfiles-help)
  34.     (source "" )
  35.     (dest #sxdir)
  36.     (pattern "~(Install#?)")
  37.     (confirm)
  38. )
  39.  
  40.  
  41. (set #assign_sx 
  42.     ("assign Sample-X: %s\npath Sample-X:util add\n" #sxdir)
  43. )
  44.  
  45.  
  46. (set #assign_prompt 
  47.     (cat "Do you wish to add the following commands to the file \"S:user-startup\" so that your system will be properly configured to use Sample-X?\n\n" #assign_sx)
  48. )
  49.  
  50. (startup "Sample-X"
  51.     (prompt #assign_prompt)
  52.     (help "No help for this function")
  53.     (command #assign_sx)
  54. )
  55.  
  56.  
  57. ; install xphantom driver 
  58.  
  59. (set #install_mx
  60.     (askbool
  61.         (prompt "Do you wish to install the 'xphantom' driver?")
  62.         (help "This driver is needed to allow Music-X to communicate with Sample-X")
  63.         (choices "Yes" "No")
  64.         (default 0)
  65.     )
  66. )
  67.  
  68.  
  69. (if #install_mx
  70.     (if (exists "DEVS:midi" (noreq) )
  71.  
  72. ; in future, check for newer version of xphantom
  73.         (run "copy drivers/xphantom DEVS:midi" )
  74.  
  75.         (abort "the DEVS:midi drawer does not exist. Music-X is not installed on this system\n")
  76.     )
  77. )
  78.  
  79.  
  80. ; change Music-X tooltype
  81.  
  82. (set #install_mx
  83.     (askbool
  84.         (prompt "Do you wish to change MIDIPORT tooltype for Music-X?")
  85.         (help "Music-X needs to know the various ports to which it can send MIDI data.")
  86.         (choices "Yes" "No")
  87.         (default 0)
  88.     )
  89. )
  90.  
  91. (if #install_mx
  92.     (
  93.         (set #mxfile 
  94.             (askfile
  95.                 (prompt "Please select the Music-X executable file")
  96.                 (default "Work:")
  97.                 (help "Since the installer program does not know where Music-X is kept, the user must specify it. This is required so that the MIDIPORT tooltype of Music-X can be changed")
  98.             )
  99.         )
  100.     
  101.         (tooltype 
  102.             (prompt "Changing one Music-X tooltype to read\n\nMIDIPORTS=internal,1A|xphantom,2A\n\nIf you are using other serial ports, please see the Sample-X documentation")
  103.             (help "No help here either")
  104.             (dest #mxfile)
  105.             (settooltype "MIDIPORTS" "internal,1A|xphantom,2A")
  106.             (confirm)
  107.         )
  108.     )
  109. )
  110.  
  111. (makeassign "Sample-X" #sxdir)
  112. ;(run "path Sample-X:util add")
  113.  
  114. (set @default-dest #sxdir)
  115.